home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Support / Lang_Ada9X.dfn < prev    next >
Text File  |  1997-12-03  |  2KB  |  140 lines
  1. ;------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Lang_Ada9X.dfn 1.00 (23.6.96)
  4. ;
  5. ; This definition file contains definitions necessary to use Blacks Editor as
  6. ; an Ada 9X programmer's editor.
  7. ;
  8. : Written by Marc Criley
  9. ; Adapted by Marco Negri
  10. ;
  11. ;------------------------------------------------------------------------------
  12.  
  13. DICTIONARY:
  14.  
  15.   abort
  16.   abs
  17.   abstract
  18.   accept
  19.   access
  20.   aliased
  21.   all
  22.   and
  23.   array
  24.   at
  25.   begin
  26.   body
  27.   case
  28.   constant
  29.   declare
  30.   delay
  31.   delta
  32.   digits
  33.   do
  34.   else
  35.   elsif
  36.   end
  37.   entry
  38.   exception
  39.   exit
  40.   for
  41.   function
  42.   generic
  43.   goto
  44.   if
  45.   in
  46.   is
  47.   limited
  48.   loop
  49.   mod
  50.   new
  51.   not
  52.   null
  53.   of
  54.   or
  55.   others
  56.   out
  57.   package
  58.   pragma
  59.   private
  60.   procedure
  61.   protected
  62.   raise
  63.   range
  64.   record
  65.   rem
  66.   renames
  67.   requeue
  68.   return
  69.   reverse
  70.   select
  71.   separate
  72.   subtype
  73.   tagged
  74.   task
  75.   terminate
  76.   then
  77.   type
  78.   until
  79.   use
  80.   when
  81.   while
  82.   with
  83.   xor
  84. #
  85.  
  86.  
  87. TEMPLATES:
  88.  
  89.   "abort @;\n"
  90.   "abs (@)"
  91.   "accept @ () do\nend ;\n"
  92.   "access"
  93.   "array (@) of"
  94.   "begin\n"
  95.   "body is"
  96.   "case @ is\nend case;\n"
  97.   "constant"
  98.   "declare\n"
  99.   "delay @;\n"
  100.   "delta @"
  101.   "digits @"
  102.   "else\n"
  103.   "elsif @ then\n"
  104.   "end ;\n"
  105.   "entry @ ();\n"
  106.   "exception"
  107.   "exit"
  108.   "for @ in  loop\nend loop;\n"
  109.   "function @ () return "
  110.   "generic\n"
  111.   "goto @\n"
  112.   "if @ then\nend if;\n"
  113.   "limited private;\n"
  114.   "loop\n  @\nend loop;\n"
  115.   "others => @"
  116.   "package @ is\n"
  117.   "pragma @;\n"
  118.   "private"
  119.   "procedure @ () "
  120.   "raise @;\n"
  121.   "range @ .. "
  122.   "record\n  @\nend record;\n"
  123.   "renames @;"
  124.   "requeue @;\n"
  125.   "return"
  126.   "reverse"
  127.   "select\n  @\nend select;\n"
  128.   "separate"
  129.   "subtype @ is ;\n"
  130.   "task @"
  131.   "terminate;\n"
  132.   "then\n"
  133.   "type @ is ;\n"
  134.   "until @;\n"
  135.   "use"
  136.   "when @ =>"
  137.   "while @ loop\nend loop;\n"
  138.   "with @"
  139. #
  140.